# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
# 1 "<built-in>"
# 1 "<command-line>"
# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
;$DIR=/opt/topspin/exp/stan/nmr/lists/pp/user/cp.bjw
;$CLASS=Solids
;$DIM=1D
;  F1 -> directly acquired
;$TYPE=cross polarization
;$COMMENT=basic cp experiment, arbitrary contact and decoupling schemes
;  ADVICE: set the initial 1H pi/2 pulse power (pl2) equal to 1H contact power (pl10)
;    then fix 1H contact power (pl10) and optimize X contact power (pl11)
;    On AV I power switching occurs during last 600 ns of p3 and should be avoided!
;  OPTIONS: Presaturation

;ns 2-step phase cycle
;spnam0 1H contact pulse shape, e.g. square or ramp
;p3 1H pi/2 pulse
;p15 contact time
;p31 1H decoupling pulse length
;pl1 =0; not used
;pl2 1H pulse power on channel f2
;pl10 1H contact power
;pl11 X contact power
;pl12 decoupling power level
;pl13 decoupling power level
;d1 recycle delay
;pcpd2 1H decoupling program pulse
;cpdprg2 cw, tppm, spinal (pl12), fslg (pl13)

;zgoptns -Dsat
;p20 saturation pulse length
;p21 1H saturation pulse length
;pl20 saturation pulse power
;pl21 1H saturation pulse power
;d20 saturation delay
;l20 saturation pulse loops
# 1 "mc_line 36 file /opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw exp. def. part of mc cmd. before ze"
; dimension 1D; AQ_mode 
define delay MCWRK
define delay MCREST
"MCREST = 10m - 10m"
"MCWRK = 0.333333*10m"

    dccorr
# 36 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
# 36 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
1  ze
# 1 "mc_line 36 file /opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw exp. def. of mc cmd. after ze"
# 37 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
# 1 "mc_line 37 file /opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw exp. start label for mc cmd."
2 MCWRK  * 2
LBLF0, MCWRK
  MCREST
# 38 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
3  1u do:f2                         ;recycle delay, decoupler off

# 48 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"

   d1
   3u pl2:f2 pl11:f1                ;preselect pl2 drive power for f2, pl11 for f3
   1u:f2 ph0
   p3:f2
   (p15 ph11):f1 (p15:spf0 pl10 ph10):f2  ;contact pulse with square or ramp
   1u cpds2:f2
   go=3 ph31
   1u do:f2
# 1 "mc_line 57 file /opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw exp. mc cmd. in line"
  MCWRK wr #0
  MCWRK zd
  lo to LBLF0 times td0

# 58 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
exit
# 60 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/cp.bjw"
ph0= 1 3
ph10= 2
ph11= 2
ph20= 0 1
ph21= 0 1
ph30= 0
ph31= 3 1
